home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _TCPIpToName.au3 < prev    next >
Encoding:
Text File  |  2007-09-08  |  609 b   |  24 lines
  1. ; Example 1
  2. #include <inet.au3>
  3. Dim $sResult, $sIp
  4. TCPStartup()
  5. $sIp = TCPNameToIP("hiddensoft.com")
  6. $sResult = _TCPIpToName ($sIp)
  7. If @error Then
  8.     MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
  9. Else
  10.     MsgBox(0, "hiddensoft.com realy is:", $sResult)
  11. EndIf
  12.  
  13. ; Example 2
  14. #include <array.au3>
  15. #include <inet.au3>
  16. Dim $aResult, $sIp
  17. TCPStartup()
  18. $sIp = _GetIP()
  19. $aResult = _TCPIpToName ($sIp, 1)
  20. If @error Then
  21.     MsgBox(0, "_TCPIpToName()", "@error = " & @error & @LF & "@extended = " & @extended)
  22. Else
  23.     _ArrayDisplay($aResult, "Local Hostname(s)")
  24. EndIf